home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / ALGIN4 < prev    next >
Text File  |  1987-02-21  |  450b  |  23 lines
  1. order x
  2. define mhalf = -.5    ;this example should be run with PFSAF.EXE
  3. maxe=30
  4. nbinomial=30
  5. define aa
  6. 1
  7. -x^2
  8.  
  9. compute sb = aa^mhalf
  10. substitute t for x in sb
  11. the derivative of y wrt t is sb
  12. define arcsin = y
  13. taylor order = 31
  14. taylor expand arcsin in t
  15. substitute 0 for y in arcsin
  16. substitute x for t in arcsin
  17. print arcsin
  18.  
  19. substitute .5 for x in arcsin
  20. define pi = 6.*arcsin
  21. print pi  ;accurate to 10 decimal places
  22. end input
  23.